25 PRINT"[147]":PRINT"VERNIER SCALE"
30 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196]
35 [153]"USED TO ELIMINATE THE GUESSWORK
40 PRINT"IN ESTIMATING A FRACTION OF A DIVISION
45 [153]"ON A SCALE.
50 PRINT"":GOSUB3000
60 PRINT"IF THIS IS A SCALE, WHAT IS THE READING OF THE POINTER ?
61 [153]""
70 [141]2000
75 [153]"ONLEFT$
80 PRINT"ENTER YOUR GUESS AND PRESS 'RETURN[146]' KEY
82 [133]A1
85 [139]A1[178]1.58[167][153]"NOT A BAD SHOT.....BUT NOT PRECISE":[137]100
87 [153]"QUITE HOPELESS.......
88 PRINT"             .......SO PROCEED
100 [153]"":[141]3000
110 [153]"HERE IS THE SCALE."
120 [141]2000
122 [129]D1[178]1[164]100[169]0.2:[130]D1
125 [153]"AND HERE IS THE 'VERNIER', CORRECTLY  ZEROED."
127 [129]D1[178]1[164]100[169]0.5:[130]D1
128 [153]"ON"
130 [153]"ONONONONONONONFN(null)CHR$(null)LEFT$(null)THENCLOSEFN(null)CHR$CHR$
135 PRINT"[165][160][160][160][160][217]     [199]
137 [153]"FN          CHR$
138 PRINT"0    5    10
140 [153]"":[141]3000
150 [153]"":[141]2000
153 [153]"ON"
155 [153]"FN(null)CHR$(null)LEFT$(null)THENCLOSEFN(null)CHR$CHR$
160 PRINT"[165][160][160][160][160][217]     [199]
165 [153]"FN          CHR$
170 PRINT"0    5    10
175 [153]"NOTICE THAT ON THE VERNIER SCALE TEN
180 PRINT"DIVISIONS OCCUPY NINE MAIN SCALE ONES.
185 [153]" EACH MAIN SCALE DIVISION IS 1/10TH
190 PRINT"GREATER THAN A VERNIER DIVISION.
195 [141]3000
1000 [141]4200
1010 [153]"LOAD":[141]2000
1020 [141]4390
1050 [153]"NOW THE READING IS ";Z
1060 [153]"NOTE -
1070 PRINT"1. THE ZERO ON THE VERNIER IS BETWEEN
1080 [153]"";Y1;" AND ";(Y1[170].1);" ON THE MAIN SCALE.
1090 PRINT"2. THE ";X1;" ON THE VERNIER IS
1100 [153]"OPPOSITE A LINE ON THE MAIN SCALE.
1105 PRINT"":GOSUB3000
1130 PRINT"DO YOU WISH -
1140 [153]"1. ANOTHER EXAMPLE
1150 PRINT"2. A WEE TEST OF YOUR SKILL
1160 [153]"PRESS APPROPRIATE NUMBER
1165 PRINT"FOLLOWED BY 'RETURN'
1170 [133]A4
1180 [145]A4[137]1000,1200
1200 [153]"LOADA WEE TEST
1202 PRINT"[196][196][196][196][196][196][196][196][196][196]
1205 [153]"A SETTING OF THE VERNIER WILL BE
1210 PRINT"FOR TEN
1215 [153]"QUESTIONS.  WRITE YOUR ANSWERS DOWN
1220 PRINT"FOR CORRECTION AT THE END.
1225 [153]"WHEN YOU ARE READY":[141]3000
1240 N[178]0:S[178]0
1250 [129]N[178]1[164]10
1260 [153]"LOAD":[141]4200
1262 [153]"LOAD":[141]2000
1265 [141]4390
1270 [153]"QUESTION ";N
1280 Q(N)[178]Z
1290 T2[178]TI
1300 [139]TI[171]T2[179](600[173]([186](N)))[167]1300
1310 [130]N
1320 [153]"LOADAND NOW FOR YOUR ANSWERS !
1330 GOSUB3000
1340 FORN=1TO10
1350 PRINT"[147]QUESTION ";N
1360 PRINT"YOUR ANSWER IS "
1370 PRINT"AND PRESS RETURN[145][145]";
1380 INPUTR
1385 IFSTR$(R)=STR$(Q(N))THENPRINT"YOU ARE CORRECT":S=S+1:GOTO1410
1390 IFINT(R*100)=INT(Q(N)*100)THENPRINT"QUITE RIGHT":S=S+1:GOTO1410
1400 PRINT"THE CORRECT ANSWER WAS ";Q(N)
1410 FORA6=1TO200STEP.4:NEXTA6
1420 NEXTN
1430 PRINT"[147]YOU SCORED  ";S;" OUT OF TEN
1440 [145]S[137]1450,1450,1450,1460,1460,1460,1470,1470,1480,1490
1450 [137]25
1455 [137]25
1460 [153]"N.V.G.. YOU SHOULD READ THROUGH AGAIN.":[141]3000
1465 [137]25
1470 [153]"NOT BAD ! BUT TRY THE TEST AGAIN.":[141]3000
1475 [137]1200
1480 [153]"ALMOST PERFECT, BUT.....":[128]
1490 [153]"A GENIUS IN OUR MIDST !":[128]
2000 [153]"0           1            2           3
2010 PRINT"[165]           [221]            [165]           [221]
2015 [153]"FNCLOSECLOSECLOSECLOSECLOSECHR$     (null)     (null)      FN     CHR$     (null)
2020 PRINT"[165][199][221][217][160][165][199][221][217][160][165][199][221][217][160][165][199][221][217][160][165][199][221][217][160][165][199][221][217][160][165][199][221][217][160][165][199][221][217]
2030 [142]
3000 [153]"PRESS ANY KEY TO CONTINUE.
3010 GETA$: IFA$=""THEN3010
3020 PRINT"[147]":RETURN
4200 Z=(INT(RND(1)*220))/100
4210 Y1=(INT(Z*10))/10
4220 X1=INT((Z-Y1)*100+.05)
4230 Y=INT(Z/.08)
4240 X=INT((Z*100)-(Y*8))
4300 AA=101:AB=84:AC=71:AD=66:AE=93:AF=72
4310 AG=89:AH=103:AI=32:AJ=101:AJ=84:AL=71
4315 RETURN
4350 PRINT"[147]":GOSUB2000
4390 FORV=1TOX
4400 AA=AB:AB=AC:AC=AD:AD=AE:AE=AF:AF=AG
4410 AG=AH:AH=AI:AI=AJ:AJ=AA:AK=AB:AL=AC:AM=AD
4420 NEXTV
4450 POKE(32969+Y),AA:POKE(32970+Y),AB
4460 POKE(32971+Y),AC:POKE(32972+Y),AD
4470 POKE(32973+Y),AE:POKE(32974+Y),AF
4480 POKE(32975+Y),AG:POKE(32976+Y),AH
4490 POKE(32977+Y),AI:POKE(32978+Y),AJ
4500 POKE(32979+Y),AK:POKE(32980+Y),AL
4560 POKE(33009+Y),AA:POKE(33049+Y),AA:POKE(33089+Y),48
4565 IFX=8THENPOKE(33010+Y),AB:POKE(33050+Y),AB
4575 IFX>=6THENPOKE(32981+Y),AM:POKE(33021+Y),AM:POKE(33061+Y),AM
4577 IFX>=6THENPOKE(33100+Y),49:POKE(33101+Y),48:GOTO4590
4580 POKE(33020+Y),AL:POKE(33060+Y),AL:POKE(33099+Y),49:POKE(33100+Y),48
4586 IFX=2THENPOKE(33014+Y),103
4590 IFX>5.5THENPOKE(33015+Y),AG:POKE(33095+Y),53
4600 IFX<=5THENPOKE(33015+Y),AG:POKE(33095+Y),53
4605 IFX=1ORX=0THENPOKE(33014+Y),89:POKE(33015+Y),32
4700 RETURN